home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / AMOSList / AMOSLIST.0997 / 000297_amos-request@svcs1.digex.net_Thu Sep 25 19:04:47 1997.msg < prev    next >
Text File  |  1997-10-01  |  3KB  |  106 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail4.access.digex.net (8.8.5/8.8.5) with ESMTP id TAA25105
  3.     for <mcox@access.digex.net>; Thu, 25 Sep 1997 19:04:46 -0400 (EDT)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id PAA06002
  6.     for amos-out; Thu, 25 Sep 1997 15:47:24 -0400 (EDT)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id PAA05995
  9.     for <amos-list@svcs1.digex.net>; Thu, 25 Sep 1997 15:47:23 -0400 (EDT)
  10. Received: from cu.cu-muc.de (BBS.cu-muc.de [195.38.157.2])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with SMTP id PAA04355
  12.     for <amos-list@access.digex.net>; Thu, 25 Sep 1997 15:47:14 -0400 (EDT)
  13. X-ROUTED: Thu, 25 Sep 1997 21:49:00 -0500
  14. X-TCP-IDENTITY: Platon
  15. Received: from cu-muc.de [195.38.157.114] by cu.cu-muc.de with smtp
  16.     id BFDABPBK ; Thu, 25 Sep 1997 21:48:30 -0500
  17. From: Chris Hodges <platon@cu-muc.de>
  18. To: amos-list@access.digex.net
  19. Date: Wed, 24 Sep 1997 07:29:16 EST5
  20. Message-ID: <yam7206.826.139738984@cu.cu-muc.de>
  21. In-Reply-To: <tcppop3.546233@cu.cu-muc.de>
  22. X-Mailer: YAM 1.3.4 [040] - Amiga Mailer by Marcel Beck
  23. Subject: Re: STD IN/OUT
  24. MIME-Version: 1.0
  25. Content-Type: text/plain; charset=iso-8859-1
  26. Content-Transfer-Encoding: 8bit
  27. X-MIME-Autoconverted: from quoted-printable to 8bit by svcs1.digex.net id PAA05996
  28. Status: O
  29. X-Status: 
  30.  
  31. joehick@golden.net wrote on 24-Sep-97:
  32.  
  33. > I would like to see five commands in an extension:
  34.  
  35. > Std In Open
  36. > Std Out Open
  37. > Std Close
  38. > Std Input
  39. > Std Output
  40.  
  41. ' Written by Chris Hodges
  42. 'Amos To Back  
  43. _ASSIGNSTDOUT[1]
  44. _ASSIGNSTDIN[2]
  45. 'Open In 2,"RAW:/200//100/RAW-Console/AUTO/WAIT/CLOSE" 
  46. Set Input 10,-1
  47. Print #1,"Please enter a string: ";
  48. T$=""
  49. Do 
  50.   _WAITFORCHAR[2,5000]
  51.   BOOL=Param
  52. '  If Not BOOL 
  53. '    Print #1,"."; 
  54. '  Else  
  55.     A$=Input$(2,1)
  56.     Exit If A$=Chr$(27)
  57.     Print #1,Chr$(10);"You pressed a key: ";A$;Chr$(10);
  58.     T$=T$+A$
  59. '  End If  
  60.   If Inkey$=Chr$(27) Then Exit 
  61. Loop 
  62. _REMSTD[1]
  63. _REMSTD[2]
  64. 'Close 2 
  65. 'Amos To Front 
  66. Print "You typed: ";T$
  67. End 
  68. Procedure _ASSIGNSTDIN[CHAN]
  69.   If CHAN<1 or CHAN>8 Then Error 23
  70.   STIN=Doscall(-54)
  71.   AD=Areg(5)+$8BC+(CHAN-1)*10
  72.   If Leek(AD)<>0 Then Error 96
  73.   Loke AD,STIN : Doke AD+4,$200 : Loke AD+6,0
  74. End Proc
  75. Procedure _ASSIGNSTDOUT[CHAN]
  76.   If CHAN<1 or CHAN>8 Then Error 23
  77.   STIN=Doscall(-60)
  78.   AD=Areg(5)+$8BC+(CHAN-1)*10
  79.   If Leek(AD)<>0 Then Error 96
  80.   Loke AD,STIN : Doke AD+4,$100 : Loke AD+6,0
  81. End Proc
  82. Procedure _REMSTD[CHAN]
  83.   If CHAN<1 or CHAN>8 Then Error 23
  84.   AD=Areg(5)+$8BC+(CHAN-1)*10
  85.   If Leek(AD)=0 Then Error 97
  86.   Loke AD,0 : Doke AD+4,0 : Loke AD+6,0
  87. End Proc
  88. Procedure _WAITFORCHAR[CHAN,TIMOUT]
  89.   If CHAN<1 or CHAN>8 Then Error 23
  90.   AD=Areg(5)+$8BC+(CHAN-1)*10
  91.   If Leek(AD)=0 Then Error 97
  92.   Dreg(1)=Leek(AD)
  93.   Dreg(2)=TIMOUT
  94.   RES=Doscall(-$CC)
  95. End Proc[RES]
  96.  
  97.  
  98. -- 
  99. Bye,�Chris�Hodges (http://home.pages.de/~platon/)  ï¿½__����__
  100. A4000/60, 24MB, 3.6GB HD, CD-ROM, CV64, FliFix�__��///���/�/�_____
  101. GCS�d�H�s-:++�!g�p?�!au�a20�w++�v?�C+++����   ï¿½\\\///���/�/_/�___/�LOGOUT
  102. E----�N++�K-�W------�-po+�t++@�!5�j--�R+�G?�   ï¿½\XX/����\__/�__/��FASCISM!
  103. tv-�b+�D--�B?�e+(++)*�u++�h!�f�!r�n+�!y+�   AMIGA�RULEZ!� ï¿½\/
  104.  
  105.  
  106.